home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.2r / card_29192.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  69 lines
  1. -- card: 29192 from stack: in.2r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3837
  5. -- name: MenuBar
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=389 top=274 right=296 bottom=474
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: try it
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then edit script of me
  23.   if menuBar("¬©1988SDrazga") then hide menubar
  24.   else show menubar
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part contents for background part 5
  30. ----- text -----
  31. MenuBar
  32.  
  33. -- part contents for background part 6
  34. ----- text -----
  35. Have you ever needed to know whether or not the menu bar was showing?  Well this XFCN will tell you exactly that.
  36.  
  37. This XFCN is ¬©1988 by Steve Drazga and all rights are reserved.  It may be used in any non-commercial, shareware, or commercial stacks as long as the following conditions are met:
  38.  
  39. 1) Within the credits of the stack the phrase 
  40. "Portions ¬©1988 Steve Drazga" should be included.
  41.  
  42. 2) Send a copy of your finished stack to me at:
  43. Steve Drazga
  44. AnalytX
  45. Box 388
  46. Southampton, PA  18966
  47.  
  48. The only compensation I receive will be seeing my efforts utilitized by others.
  49.  
  50. If you need custom XCMDs/XFCNs, stacks, or HyperCard training for your organization contact Steve Drazga at AnalytX (215) 464-3733.
  51.  
  52. -- part contents for background part 7
  53. ----- text -----
  54. Syntax:
  55.  
  56. MenuBar("©1988SDrazga")
  57.  
  58. This XFCN will return 'true' if the menubar is showing, or 'false' if it is hidden.
  59.  
  60.  
  61. The only parameter that must be passed must is the copyright notice (the ¬© symbol is option-g).
  62.  
  63. ex: 
  64. if menuBar("¬©1988SDrazga") then hide menubar 
  65. else show menubar
  66.  
  67. -- part contents for background part 10
  68. ----- text -----
  69. 24